home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / programs / swift45i.zip / NODELIST.Q-A < prev    next >
Text File  |  1992-06-11  |  861b  |  50 lines
  1. Clearscreen
  2. PostInfo
  3. Variable 15 Net
  4. Variable 10 Node
  5. Variable 20 Name
  6. Variable 41 City
  7. Variable 40 Phone
  8.  
  9. GetFile QNL_DAT.BBS
  10.  
  11. Display "|" User
  12. Display "|" Sysop
  13. Display "|" System
  14. Display "|Nodelist Entries are:|"
  15. Repeat 200 times
  16.  SkipBytes 3
  17.  ReadNum Net
  18.  ReadNum Node
  19.  SkipBytes 1
  20.  Read Name
  21.  SkipBytes 1
  22.  Read City
  23.  Read Phone
  24.  SkipBytes 15
  25.  Display "|"
  26.  TabDisplay 1 Net
  27.  Display "/"
  28.  TabDisplay 5 Node
  29.  TabDisplay 25 Name
  30.  Rem Display "|     "
  31.  TabDisplay 20 City
  32.  TabDisplay 15 Phone
  33. EndRepeat
  34. Quit
  35. typedef struct noderecord {
  36.     unsigned char nodetype;
  37.     unsigned int zone,net,node;
  38.     unsigned char name[21];
  39.     unsigned char city[41];
  40.     unsigned char phone[41];
  41.     unsigned char password[9];
  42.     unsigned int flags;
  43.     unsigned int baudrate;
  44.     unsigned int cost;
  45. } NODE;
  46.  
  47. Display "past Quit signal"
  48. SetFlag C6 OFF
  49.  
  50.